* FUNCTION: UTC_Time.prg
* Author: George Tasker
* Date: December 18, 1999 - 11:28 AM
* Purpose: Converts a Date/Time value to
* Universal Coordinated Time

LPARAMETER tDateTime

LOCAL ltresult, loConvert, lcsystime,;
  lcfiletime
SET PROCEDURE TO Con_Time ADDITIVE
loConvert = CREATEOBJECT('ConvertTime')
RELEASE PROCEDURE Con_time
lcfiletime = loConvert.SystemToFileTime(tDateTime)
lcfiletime = loConvert.LocalToFileTime(lcfiletime)
lcsystime = loConvert.FileTimeToSystem(lcfiletime)
ltresult = loConvert.SystemToDateTime(lcsystime)
ltresult = ltresult + (loConvert.Get_Bias(ltresult) * 60)
loConvert = NULL
RETURN ltresult